home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 November & December / Amiga-CD 1996 #11-12.iso / pd-disketten / ungepackt / 1_96 / apd-1-96-2 / verfaxt nochmal / goldfax.rexx next >
OS/2 REXX Batch file  |  1996-01-22  |  2KB  |  79 lines
  1. /*
  2.  *  $VER: GoldFax.rexx 1.00 (12. November 1995)
  3.  */
  4.  
  5. /* Dieses ARexx-Skript kann ins Menü von GoldEd
  6.    eingetragen werden. Es dient zum Faxen des
  7.    aktuellen Textes.
  8.  
  9.    Zuerst wird der MultiFaxServer gestartet
  10.    (dieser muß beim Start »AKTIV« sein, siehe
  11.    Config/Sonstige Einstelluzngen/Server aktiv).
  12.    Danach wird der Text ausgedruckt (d.h.
  13.    umgeleitet in eine FaxDatei). Im Telefonbuch
  14.    läßt sich der Empfänger eingeben bzw. auswählen.
  15.  
  16.    Bei MultiFax 3.0 muß nach dem Fax der Server
  17.    manuell beendet werden. Unter MultiFax 4.0 wird
  18.    der Server automatisch beendet.                  */
  19.  
  20. options results
  21. ed_port = address()
  22.  
  23. /*
  24.  *  Das Skript funktioniert nur, wenn des direkt von
  25.  *  GoldEd aus gestartet wurde. Das wird hier
  26.  *  sichergestellt
  27.  */
  28. if (left( ed_port , length( ed_port )-2) ~= "GOLDED") then
  29.     errexit( "Skript muß von Golded aus gestartet werden!")
  30.  
  31.  
  32. /*
  33.  *  Kann bei MultiFax 3.0 weggelassen werden
  34.  */
  35. address command "run <>nil: Multifax:MFRexx"
  36. address command 'waitforport MultiFaxRexx'
  37. if rc > 0 then
  38.     errexit( "MFRexx konnte nicht gestartet werden!" )
  39.  
  40. /*
  41.  *  Server starten, damit der anschließende
  42.  *  Druckvorgang in eine Faxdatei umgelenkt wird
  43.  */
  44. address command "run <>nil: Multifax:Server"
  45. address command 'waitforport MultiFaxServer'
  46. if rc > 0 then
  47.     errexit( "Server konnte nicht gestartet werden!" )
  48.  
  49. /*
  50.  *  Kommando an GoldEd: Alles sofort und ohne
  51.  *  Nachfrage ausdrucken (wird umgeleitet)
  52.  */
  53. 'PRINT FORCE ALL'
  54. if rc > 0 then
  55.     errexit( "Fehler beim Fax erstellen!" )
  56.  
  57. /*
  58.  *  Funktioniert nur bei MultiFax 4.0: Server
  59.  *  nachher wieder beenden.
  60.  */
  61. address command wait 5
  62. address 'MultiFaxRexx' EXITALL
  63. exit 0
  64.  
  65.  
  66. /*  errexit <text>
  67.  *
  68.  *  Gibt Text aus und beendet Programm mit
  69.  *  Fehlercode 10
  70.  */
  71. errexit:
  72. arg errtext
  73.  
  74. say "Fehler:" errtext
  75. if show( p , 'MultiFaxRemServer' ) then
  76.     address 'MultiFaxRexx'  EXITALL
  77. exit 10
  78.  
  79.